home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / DOC / REFCARD.ASC < prev    next >
Encoding:
Text File  |  1994-01-03  |  39.8 KB  |  695 lines
  1.            |                                                                   *
  2.  *                  |
  3.            |                                                                   *
  4.  *                  |
  5.            |                                                                   *
  6.  *                  |
  7.            |                                                                   *
  8.  *                  |
  9.            |                                                                   *
  10.  *                  |
  11.            |                                                                   *
  12.  *                  |
  13.            |                                                                   *
  14.  *                  |
  15.      __________________________________________________________________________*
  16.  *__________________||
  17.            |         |                    |                     |              *
  18.  *                  |
  19.            ||        |                    |                     |              *
  20.  *                  ||
  21. PCS/GENEVA REFERENCE  File Commands        Ed: a Generic Editor Scheme Editor C*
  22.  *ommands
  23. Version4.02||_cO1993LarryBartholdi,MarcVuilleumierCtrl-XCtrl-VvisitafileAutoind*
  24.  *entisactiveandcolo||rchangesoneachparenthesislevel.
  25. E-Mail:sche|mege@cui.unige.ch_FTP:cui.unige.ch:pub/pcsCtrl-XCtrl-Ssavethebuffer*
  26.  *Edisaneditortoolki|tusingasubsetofBrief'skeysequences
  27.            |                               (make-editor=[window])['EXIT-FREELY]*
  28.  *)abasiceditorobjec|tCtrl-AenlargemarkaroundSchemeexpression
  29.            |          Ctrl-XCtrl-Wwritethebuffer(make-enhanced-editor=:::))Cdit*
  30.  *to,withadditionalf|eaturestrl-ZmarkthebiggestSchemeexpression
  31.            |          Ctrl-XCtrl-Iinsertafile                   Ctrl-F10evaluat*
  32.  *emarkedexpression |
  33. Edwin: the |TraditionalCEditortrl-XCtrl-Pputaregiontoafile(make-color-editor=::*
  34.  *:)) ditto,withbloc|khighlight
  35.            |          Ctrl-XCtrl-Qtoggleread-onlyflag(make-scheme-editor=:::))A*
  36.  *ditto,withscheme-s|pecificruleslt-F10evaluatecurrentfile
  37. Edwinisasop|histicatededitorusingEmacs'keysequences             Tab  completesy*
  38.  *mbolorreindentline|/block
  39.            |          Meta-"ignorechangesmadetothebufferExamples:Shift-Tabprepa*
  40.  *retoaddacomment   |
  41. (edwin)star|tstheeditor                    (define ed (make-[:::-]editor));crea*
  42.  *teafull-screenedit|orAlt-Q<key>usekey'sbasicdefinition
  43. (remove-edw|in)forgetstheeditor            (ed 'REMAP-KEY;27r'@GOTO-LINE)emapEs*
  44.  *cto"gotoline"     |
  45. (edwin-rese|t-lines)resetstheconsoletofull-screenBreaking & Indenting          *
  46.  *                  |
  47. Meta-canbeE|scapeorCtrl-Z.                 (ed [filename]);opentheeditor       *
  48.  *                  |
  49.            |          Ctrl-Oopentheline    Tocreateamulti-windoweditor,definetw*
  50.  *oormoreeditorsindi|fferentDriving an Editor
  51.            |          Returninsertalinebreak                                   *
  52.  *                  |
  53.      ___Nex|tPrevious_Ctrl-Jinsertalinebreakandindentwindows;scrapbookandkeystr*
  54.  *okeassignementswil|lbesharedbyall.Edisassumedtobeaninstanceofanappropriateedi*
  55.  *t@
  56.     Charact|erCtrl-FCtrl-B                                      (ed [message]m[*
  57.  *arguments])essage |defaultsto'OPEN
  58.            |          Tab   indenttheline(accordingtoSchemesyntax)             *
  59.  *                  |
  60.     WordMet|a-FMeta-B Meta-Ctrl-QindentthenextSchemeexpressionBasic'EditorOComm*
  61.  *andsPEN[filename]p|op-uptheeditor,handlecommands
  62.     LineCtr|l-NCtrl-P                           _               'SAFE    ensure*
  63.  *currentbufferissav|ed
  64.     Sentenc|eMeta-AMeta-E                  Step |"|  JumpPgUp   'CLEAR   clearb*
  65.  *uffer             |
  66.     Paragra|phMeta-]Meta-[Miscellaneous       _ _$l_! Ctrl-_$lCtrl-_!          *
  67.  *                  |
  68.            |                                  |_|_|_|      |_|  'NA|_|ME[new-va*
  69.  *lue]:::::::::::::)|nameofbuffer
  70.     ScreenC|trl-VMeta-VCtrl-Ssearchforwardincrementally|#|_PgDn 'BUFFER[new-val*
  71.  *ue]::::::::::) ali|stofstrings
  72.     ListMet|a-Ctrl-NMeta-Ctrl-P                                 'POSITION[new-v*
  73.  *alue]::::::::) cur|sorposition
  74.     S-ExprM|eta-Ctrl-FMeta-Ctrl-BCtrl-Rsearchbackwardincrementally1Ctrl-PgUpDel*
  75.  *ete'INSERT[new-val|ue]::::::::::) #Fwheninoverwritemode
  76.            |          Ctrl-XCtrl-MtoggleFundamental/SchememodeHome$lEndBackSpac*
  77.  *e$lDel            |
  78.            |          Ctrl-X!togglefull/splitscreen             'TAB[new-value]*
  79.  *::::::::::::::) ta|bexpansionwidth
  80.      ___Las|tFirst____                         Ctrl-PgDn        'TABULIZE-MODE[*
  81.  *new-value]:::) 'CO|MPRESS,'NORMALor'EXPAND
  82.     LineMet|a->Meta-< Meta-Ctrl-Zevaluatethemark                'SEPARATORS[new*
  83.  *-value]::::::) str|ing(usedforwordmove)
  84.            |          Meta-Ctrl-XevaluatethenextSchemeexpressionAlt-Itogglei_ns*
  85.  *ert/overwritemode'|CASE-SENSIVITY[new-value]:) #Fwhendisabled
  86.            |          Meta-OevaluatethebufferAlt-Gg_otoline                    *
  87.  *                  |
  88. Mark Comman|ds        Ctrl-XCtrl-ZsuspendedwinAlt-Kk_illtoendofline'COLORS[new-*
  89.  *value]::::::::::) |associativecolorlist
  90.            |                                                    'COMMENT-COLUMN*
  91.  *[new-value]:) colu|mn#
  92. Ctrl-@ seta|mark      Ctrl-XCtrl-CexittheeditorAlt-Dd_eletecurrentline'INDENT-T*
  93.  *OKENS[new-value]::|:) listofspecialtokens
  94. Meta-@ mark|aword     Ctrl-LredrawthescreenCtrl-Lrefreshdisplay 'INPUT-PORT[new*
  95.  *-value]::::::) por|tusedforinput
  96.            |          Ctrl-Urepeatacommand F7   recordakeystrokesequence       *
  97.  *                  |
  98. Meta-Ctrl-@|markaSchemeexpressionCtrl-GabortthecurrentcommandF8replayakeystroke*
  99.  *sequence'DO-STRING|stringfeededitorwithkeystrokes
  100. Meta-H mark|thewholeparagraph                                   'READ-ACTION)::*
  101.  *::::::::::::::anac|tion:thenextevent
  102. Ctrl-XHmark|thewholebufferCtrl-QquotethenextcharacterF10executeacommandbyname'H*
  103.  *ANDLE-ACTIONaction|processonecommand
  104. Ctrl-XCtrl-|XexchangecurrentpositionandmarkCtrl-Ttranspose(swapthelasttwocharac*
  105.  *ters)Alt-Ee_ditano|therfile'REMAP-KEYkeyfunction
  106.            |                               Alt-Wwritefiletodisk                *
  107.  *                  |
  108.            |                                    _                  key is(list**
  109.  * [:::Ascii2] Ascii|1)
  110.            |          Inside (%system-file-nameA"EDWIN.INI")lt-Ochoosenewo_utpu*
  111.  *tnamefunction if(l|ist* [(contextaction):::] default-action)
  112. Kill/Unkill|Commands                       Alt-Rr_eadafileintocurrentcontext is*
  113.  *~(ed)-!boolean    |
  114.            |          (set-edwin-keydkeyehandler)fineanewsequenceAlt-Xex_itedit*
  115.  *or|               |
  116. Backspacede|letethecharacterbeforethecursor                      | action isach*
  117.  *aracter,astring,or|asymbol:
  118. Ctrl-D dele|tethecharacteratthecursor(remap-edwin-keydnew-keyeold-key)fineanali*
  119.  *assequence|'@LEFT'|@WORD-LEFT'@HOME
  120. Meta-\ dele|teallspaces&tabsaroundthepointHerekey canbeacharacteroralistofchara*
  121.  *cters.|'@RIGHT'@WO|RD-RIGHT'@END
  122.            |          Predefinedcharsaremeta-char,alt-char,ctrl-x-charandEnhanc*
  123.  *ed|Editor'Commands|@UP'@PAGE-UP'@TOP-OF-BUFFER
  124. Meta-Spaced|eleteallspaces&tabsexceptone   UseaColorEditorifyouwantblockhighlig*
  125.  *htfeatures.|      |
  126. Meta-D kill|thenextwordctrl-z-char.                              |          '@D*
  127.  *OWN '@PAGE-DOWN'@E|ND-OF-BUFFER
  128. Meta-Backsp|acekillthepreviousword         Alt-Mm_arkblock       |          '@D*
  129.  *EL  '@DELETE-TO-EO|L'@DELETE-LINE
  130. Ctrl-K kill|tillendofline                  Alt-Llineblock        |          '@B*
  131.  *ACKSPACE'@TAB'@ENT|ER
  132.            |                                    _                |          '@Q*
  133.  *UOTE              |
  134. Meta-K kill|tillendofsentence              Alt-Cc_olumnblock     |             *
  135.  *                  |
  136. Ctrl-XBacks|pacekillbackwardtobeginofsentence<Keypad->cutblock/linetoscrap| '@I*
  137.  *NSERT-MODE'@GOTO-L|INE'@REFRESH
  138. Meta-Ctrl-K|killnextSchemeexpression       <Keypad+>copyblock/linetoscrap|  '@R*
  139.  *ECORD'@PLAY'@EXECU|TE
  140. Ctrl-W kill|aregion                        <Keypad=>invertblockbounds(swapancho*
  141.  *r)|'@LOAD'@READ-IN|TO'@WRITE
  142.            |                                                     |             *
  143.  *                  |
  144. Meta-W copy|aregion                        Ins  insertscrapintotext|        '@R*
  145.  *ENAME'@EXIT       |
  146. Ctrl-Y yank|backakill                      Del  deleteblock      |          '@S*
  147.  *EARCH'@REPEAT-SEAR|CH'@CASE-SENSITIVITY
  148. Meta-Y unki|llusingpreviouskillringentry   Alt-Ww_riteblock/filetodisk|        *
  149.  *                  |
  150. Meta-Ctrl-W|appendnextkilltoprecedingkill                        |          '@T*
  151.  *RANSLATE'@REPEAT-T|RANSLATE'@REPLICATE
  152.            |                               Alt-[1:::3]dropabookmark|        '@B*
  153.  *OOKMARK-[1:::3]'@J|UMP-TO-[1:::3]
  154. Ctrl-XCtrl-|Kexpungekillringentry          Alt-J[1:::3]jumptobookmark|      '@M*
  155.  *ARK-BLOCK'@LINE-BL|OCK'@COLUMN-BLOCK
  156.            |                               Ctrl-_Rreplicateacommand|           *
  157.  *                  |
  158.            |                                    _                |          '@C*
  159.  *UT-BLOCK'@COPY-BLO|CK'@INSERT-BLOCK
  160.            |                               Ctrl-F5togglecasesensivity|      '@C*
  161.  *ANCEL-BLOCK'@SWAP-|ANCHOR
  162.            |                               Alt-SorF5s_earchstring|             *
  163.  *                  |
  164.            |                               Shift-F5repeatprevioussearch|    '@M*
  165.  *ARK-EXPR'@MARK-DEF|'@SCHEME-PARENTHESIS
  166.            |                                                     |          '@C*
  167.  *OMPLETION'@INDENT'|@COMMENT
  168.            |                               Alt-TorF6t_ranslatestring|       '@E*
  169.  *VAL '@EVAL-BLOCK'@|SCHEME-ENTER
  170.            |         |                    |Shift-F6repeatpreviou|stranslate|   *
  171.  *                  |
  172.      ________________|____________________|_____________________|______________*
  173.  *__________________||
  174.            |                                                                   *
  175.  *                  |
  176.            |                                                                   *
  177.  *                  |
  178.            |                                                                   *
  179.  *                  |
  180.            |                                                                   *
  181.  *                  |
  182.            |                                                                   *
  183.  *                  |
  184.            |                                                                   *
  185.  *                  |
  186.            |                                                                   *
  187.  *                  |
  188.      __________________________________________________________________________*
  189.  *__________________||
  190.            |         |                     |                    |              *
  191.  *                  |
  192.            ||        |                     |                    |              *
  193.  *                  ||
  194. BGI: the Graphics PackageBitmapping        Hershey Fonts         Using the Mouse
  195.            ||         (get-pixel=point)) colorThispackageisanenhancedalternativ*
  196.  *etoout-text,provid||ing
  197. Pointsanddi|stancesarerepresentedaspairs.(put-pixelvpointacolor)riousspecialsym*
  198.  *bols,typesandalpha|betsaswellasasubsetofTAX.llcallsarehandledthrougha"mouse"o*
  199.  *b@
  200. TheX-andY-c|omponentscanbearbitrarynumbers.                        (mouse messa*
  201.  *ge [parameters]) =|) result              E
  202. (set-world!|upper-left-point(lower-right-point)get-image=upper-left-point)lower*
  203.  *-right-point)abina|rystring(load (%system-file-name "HERSHEY.FSL"))
  204.            |          (put-image new-upper-left-point(image-stringoput-mode)ut-*
  205.  *hersheyHstringe[po|sition])rebutton-set is{'LEFT'RIGHT'CENTER}
  206.            |            put-mode is'COPY,'XOR,'OR,'AND,or'NOT     button2button*
  207.  *-set              |
  208.            |                               position isapoint      buttons-down *
  209.  *button-set        |
  210. Control Sys|tem       (image-size upper-left-pointslower-right-point)tring isas*
  211.  *equenceofanyof:   |
  212.            |          (get-view-settings)=) (ul-pointolr-point"clip?)small,"lar*
  213.  *ge,"horiz,"vert,  |
  214. (init-graph|[driver[mode[BGI-path]]])(set-viewportoupper-left-point"lower-right*
  215.  *-point<clip?)font>|or"<font>@<scale>,where<font>is:'RESET
  216.   driver is|'DETECT,'CGA,'MCGA,'EGA,'EGA64,'EGAMONO,(clear-viewport)|'SHOW     *
  217.  *                  |
  218.   'IBM8514,|'HERCMONO,'ATT400,'VGAor'PC3270   | smalllightbold   'HIDE         *
  219.  *                  |
  220. (set-write-|modewwmode)mode(is'COPYor'XORclear-device)|RM10RM2LRM2BRomanfamily *
  221.  *                  |
  222.            |          (set-active-page page)  | SL10SL2LSL2BSlantedfamily'INQ):*
  223.  *::::::::::::::::::|::::(buttons-downxy)
  224. (restore-cr|t-mode)   (set-visual-page page)  |                  'PRESSbutton::*
  225.  *:::::::::::::) (bu|ttons-downpress-countxy)
  226. (set-graph-|mode [mode])                      | SS10SS2LSS2BSans-seriffamily'RE*
  227.  *LEASEbutton:::::::|:::::) (buttons-downrelease-countxy)
  228. (close-grap|h)                                | GR10GR2LGR2B aefflffl~family   *
  229.  *                  |
  230. (graph-defa|ults)     Writing Text            |                  'MOVExy       *
  231.  *                  |
  232.            |                                  | AN20GO20OE20Antique,Gothic&OldE*
  233.  *nglish'LIMITS 'HOR|IZONTALx0x1
  234. (detect-gra|ph)       (out-text-xy start-point|text-string)SY10SY20CY20Symbols&*
  235.  *Cyrillic'LIMITS 'V|ERTICALy0y1
  236. (get-mode-r|ange [driver])                   and<scale>isinteger or(integerx,in*
  237.  *tegery),'LIMITS 'B|OTHx0x1y0y1
  238. (get-graph-|mode)     (out-text text-string)                                   *
  239.  *                  |
  240. (install-us|er-driver=name))(asymbol(driver)get-text-settings)=)o(fontpdirectio*
  241.  *nlsizeahoriz-justi|vert-just)ntextorsymbols(e.g."See'note""dagger"),SHAPEshape
  242.            |          (set-text-style font directionosize)grouping{}tosave/rest*
  243.  *oresettingsanddeli|mititems,symbol or(x-hot-spoty-hot-spotand-maskxor-mask)
  244.   name isas|tring(filenamewithoutextension)fontois'DEFAULT,'TRIPLEX,'SMALL,'SAN*
  245.  *S-SERIF,'GOTHIC,^<|item>or`<item>forsuper-orsub-scripts'CURSORsymbol:::::::::*
  246.  *:@
  247. (install-us|er-fontaname)symbol(font)'SCRIPT,'SIMPLEX,'TRIPLEX-SCR,'COMPLEX,'EU*
  248.  *ROPEANor"|'CENTER'|LEFT'RIGHT'SMALL'ARROW
  249.            |                                Bewarethat"'sinstringsmustbedoubled*
  250.  *!|                |
  251.            |            'BOLD                                    |'UL-POINT'UR-*
  252.  *POINT'LL-POINT'LR-|POINT'HAND
  253. Drawing    |            direction is'HORIZor'VERT                |'KEYBOARD'DIS*
  254.  *K'STAR4'STAR6'TARG|ET
  255.            |            size isanintegerbetween1and10,or0fordefault|'X'CROSSHAI*
  256.  *R'CROSS'MOVE'BLOCK|
  257. (line start|-point end-point)(set-text-justifyDhoriz-justevert-just)bugging|Too*
  258.  *ls'CIRCLE'EXCLAIM'|HOURGLAS'CLOCK'KITE
  259. (rectangle |upper-left-pointhlower-right-point)oriz-just is'LEFT,'CENTERor'RIGH*
  260.  *T|                |
  261.            |                                                     |'MESH'SQUARE'*
  262.  *CALIPERS'CRAYON'ER|ASER
  263. (draw-poly |list-of-points)vert-just is'BOTTOM,'CENTERor'TOPInthissection,proci*
  264.  *saproceduretodebug|.|'HAIRS'HUMAN'IBAR'LASSO'PAINTCAN
  265. (circle cen|ter-point radius)(set-user-char-size(x-ratioby-ratio)reak[-entry,-e*
  266.  *xit,-both]bproc)re|ak|break-entry'PENCIL'PENCIL2'PLIERS'SWORD'THE-BOOT
  267. (arc center|-point start-angle(end-angletradius)ext-size=text-string))padistanc*
  268.  *erimesinspect;bind|s*ARGS*,*PROC*and*RESULT*|'SCISSORS'SCREWDRIVER
  269. (ellipse ce|nter-point start-angle end-angle distances)          |             *
  270.  *                  |
  271.            |                               (unbreak[-entry,-exit]uproc)nbreakki*
  272.  *llsbothbreakpoints|'TEXT-TYPE 'SOFTWAREand-itemxor-item
  273. (get-arc-co|ords)=) (center-pointUstart-pointsend-point)ing(Colortrace[-entry,-*
  274.  *exit,-both]tproc)r|aceatrace-entrynd-itemandxor-itemare(character.attribute)
  275. (get-aspect|-ratio)                        (untrace[-entry,-exit]'proc)TEXT-TYP*
  276.  *E 'HARDWAREstart-r|owend-row
  277. (set-aspect|-ratiosfactor)etscircles'andarcs'x-yaspectPredefinedcolorsare:     *
  278.  *                  |
  279.          fa|ctor isafraction,passedasapair|(advise-entrysprocpspy)y'is~(procarg*
  280.  *senv)SMOOTH['CHECK||'ENABLE|'DISABLE]PrecisePointservices
  281.            |           | 'BLACK(0)'BROWN(6)'LIGHT-CYAN(11)(advise-exitsprocpspy*
  282.  *)y'is~(procargsenv|retval)HANDLER[new-value]::::::::) previoushandler
  283. (get-line-s|ettings)   | 'BLUE(1)'LIGHT-GRAY(7)'LIGHT-RED(12)      ahandleris(e*
  284.  *vents.proc)       |
  285. (set-line-s|tyle line-style|user-pattern'thickness)GREEN(2)'DARK-GRAY(8)'LIGHT-*
  286.  *MAGENTA(13)events2|('MOVE'LEFT-DOWN'LEFT-UP'LEFT'RIGHT-DOWN
  287.   line-styl|e is'SOLID,'CENTER,'DOTTED,'DASHEDor'USER-BIT|'CYAN(3)'LIGHT-BLUE(9*
  288.  *)'YELLOW(14)The In|spector
  289.   thickness|is'NORMAL(1),'THICK(3)oraninteger|                     'RIGHT-UP'RI*
  290.  *GHT'CENTER-DOWN'CE|NTER-UP'CENTER'UP
  291. (move-to(po|int)move-rel|distances)'RED(4)'LIGHT-GREEN(10)'WHITE(15)(inspect)st*
  292.  *artstheinspector'D|OWN'BUTTONS)
  293.            |           | 'MAGENTA(5)                               procis~(even*
  294.  *tsbuttons-downxymi|ckeys-xmickeys-y)
  295. (line-to(po|int)line-rel distances)        ?   displaythecommandsummary'ENABLE'*
  296.  *DISABLE           |
  297.            |          (get-color)(get-bk-color)!resetinspect     'PEN-ON 'PEN-O*
  298.  *FF                |
  299.            |          (set-color(color)set-bk-color color)                     *
  300.  *                  |
  301. Filling    |          (get-max-color)      Ctrl-Adisplaya_llenvironmentframebin*
  302.  *dings'EXCLUDEx0y0x|1y1
  303.            |          (get-palette-size)   Ctrl-Bdisplayprodecurecallb_acktrace*
  304.  *'MICKEY-RATIOxy   |
  305. (flood-fill|start-point stop-color)        Ctrl-Cdisplaythec_urrentenvironmentb*
  306.  *inding'SPEED-THRES|HOLDspeed
  307. (bar upper-|left-point(lower-right-point)get-palette)(get-default-palette)Ctrl-*
  308.  *Dmovedowntocallee'|sstackframe'SENSITIVITY[new-value]:::) (xyspeed)
  309. (bar-3d upp|er-left-point(lower-right-pointsdepthedraw-a-top?)t-palette entry c*
  310.  *olor)_            |
  311.            |          (set-rgb-palette entryCredtgreenrblue)l-Ee_ditavariable's*
  312.  *binding'MICKEYS)::|:::::::::::::::::(xy)
  313. (fill-poly |list-of-points)(set-all-paletteCcolor-list)trl-Gg_o(resumeexecution*
  314.  *)relativemovement.|AMickeyis 1=200in
  315. (fill-ellip|se center-point distances)     Ctrl-Ievaluateanexpression&i_nspectt*
  316.  *heresult'POINTER-P|AGE[new-value]::) page
  317. (pie-slice |center-point start-angle end-angleCradius)trl-Llistthecurrentproced*
  318.  *ure'INFORMATION[ne|w-value]:::) (versiontypeIRQ)
  319.            |                                   _                               *
  320.  *                  |
  321. (sector cen|ter-point start-angleMend-angleidistances)scellaneousCtrl-Mrepeatth*
  322.  *ebreakpointm_essag|etypeis'BUS,'SERIAL,'INPORT,'PS/2or'HP
  323. (get-fill-s|ettings)=) (fill-style color)  Ctrl-Pmovetothep_arentenvironment'sf*
  324.  *rame'LANGUAGE[new-|value]:::::::) language
  325. (set-fill-s|tyle fill-style(color)get-xy)(get-max-xy)Ctrl-Qquit(resettotop-leve*
  326.  *l)languageis'ENGLI|SH,'FRENCH,'DUTCH,'GERMAN,'SWEDISH,
  327.   fill-styl|e is'EMPTY,'SOLID,'LINE,'[LT][BK]SLASH,'HATCH,(get-driver-name)(get*
  328.  *-mode-name_mode)'F|INNISH,'SPANISH,'PORTUGESEor'ITALIAN
  329.   'XHATCH,'|INTERLEAVE,'CLOSE-DOTor'WIDE-DOT(get-max-mode)Ctrl-Rr_eturnfrombrea*
  330.  *kwithavalue'INTERR|UPT-RATEraterate is'NONE,30,50,100200
  331. (get-fill-p|attern)=) (fill-pattern(color)graph-error-msgCerror-id)trl-Smovetos*
  332.  *_onenvironment'sfr|ame
  333.            |                               Ctrl-Umoveu_ptothecaller'sstackframe*
  334.  *                  |
  335. (set-fill-p|attern fill-pattern(color)graph-result)Ctrl-Vevaluateoneexpressioni*
  336.  *nthecurrentenviron|ment
  337.   fill-patt|ern isalistofintegers                         _                    *
  338.  *                  |
  339.            |                               Ctrl-Ww_here(displaythecurrentstackf*
  340.  *rame)             |
  341.            |                                                                   *
  342.  *                  |
  343.            |         |                     |                    |              *
  344.  *                  |
  345.      ________________|_____________________|____________________|______________*
  346.  *__________________||
  347.            |                                                                   *
  348.  *                  |
  349.            |                                                                   *
  350.  *                  |
  351.            |                                                                   *
  352.  *                  |
  353.            |                                                                   *
  354.  *                  |
  355.            |                                                                   *
  356.  *                  |
  357.            |                                                                   *
  358.  *                  |
  359.            |                                                                   *
  360.  *                  |
  361.      __________________________________________________________________________*
  362.  *__________________||
  363.            |         |                     |                    |              *
  364.  *                  |
  365.            ||        |                     |                    |              *
  366.  *                  ||
  367. PCS/GENEVA REFERENCE  Operators            Numbers               Characters
  368. Version4.02||_cO1993LarryBartholdi,MarcVuilleumierCurrentreleaseusesIeee64-bitf*
  369.  *loatingpointandpre||ciseinteger#"BACKSPACE #"ESCAPE  #"NEWLINE  #"PAGE
  370. E-Mail:sche|mege@cui.unige.ch_FTP:cui.unige.ch:pub/pcsBooleanscomputationsinran*
  371.  *ge#"1040000.Exactf|loatingpoint,rationalandRETURN  #"RUBOUT  #"SPACE  #"TAB
  372.            |                                                                   *
  373.  *                  |
  374.            |          #T#F     '()iscurrentlyevaluatedto#Fcomplexnumbersarecurr*
  375.  *entlynotimplemente|d.(char? obj)
  376.            |          (boolean? obj)       (number? obj)         (char->integer*
  377.  *uchar)singAsciicha|racterset
  378. Semantics  |                               (complex?cobj)urrently number?      *
  379.  *                  |
  380.            |                               (real? obj)currently number?(string=*
  381.  *char):::)astringbu|iltofchars
  382.            |                                                     (char-downcase*
  383.  * char)            |
  384. Binding For|ms        Equivalence Predicates(rational?cobj)urrently(integer?cha*
  385.  *r-upcase char)    |
  386.            |                               (integer? obj)        (char-ci[<,<=,*
  387.  *=,>,>=]?ccharchar)|ase-insensitive
  388. (lambda for|mals-list exp(:::)eq?tobj1obj2)estsphysicalequalitywhetherobj resul*
  389.  *tsfromexactinteger|computations12
  390. (named-lamb|da (name formals)(expe:::)qv?tobj1obj2)estsnumbers,strings&characte*
  391.  *rs(float?(obj)char|[<,<=,=,>,>=]? char1char2)
  392. (rec label |exp)      (equal? obj1obj2)testsvisualappearances                  *
  393.  *          (and(num|ber? obj)
  394. (let[*,rec]|[label] ((var value) :::) exp :::)                                 *
  395.  *            (not (|integer? obj)))
  396.            |                               (exact? number)=) currentlySinteger?*
  397.  *trings            |
  398. (do((var [i|nit[step]]):::)Pairs & Lists   (inexact?=number)) currently float? *
  399.  *                  |
  400.  (terminate|?result-exp :::)                                     Stringsareencl*
  401.  *osedin":::";Allind|exesstartat0
  402.  statement |:::)      '()      theemptylist(negative? number)                  *
  403.  *                  |
  404.            |                               (zero? number)        (string? strin*
  405.  *g)                |
  406.            |          (pair? obj)          (positive? number)    (string-null? *
  407.  *string)           |
  408. Fluid Envir|onment    (null? obj)          (number->stringrnumbera[radix])dix(i*
  409.  *s2,8,10or16string-|>list=string)) alistofchars
  410.            |          (atom? obj) (not (pair? obj))              (string->numbe*
  411.  *rrstringa[radix])d|ix is2,8,10or16
  412. (fluid-boun|d? var)   (list? obj)=) #Tifobj(is'()or(objf.list)loat=number)) Iee*
  413.  *e64-bitrepresentat|ion
  414. (fluid var)|=) var'sfluidbinding           (truncate=number)) number(roundedtoz*
  415.  *erostring->symbol |string)
  416.            |          (list->stream list)  (round number)=) nearestinteger,tieb*
  417.  *reakseven(string->|uninterned-symbol=string)) auniquesymbol
  418. (fluid-lamb|da formals-list(expl:::)ist->string(list)floor=number))(integer2]nu*
  419.  *mber-1;mnumber]ake|-string length [init-char])
  420. (fluid-let |((var value)(:::)lexpi:::)st->vector list)           (string-append*
  421.  *r[string]e:::)turn|s""whennoarguments
  422. (set-fluid!|varcobj)hangesafluidbinding(implode=list))(asymbol(builtoflist'sele*
  423.  *ments)ceiling=numb|er)) integer2[number; number+1[
  424.            |                               (1+ number) ADD1      (string-copy s*
  425.  *tring)            |
  426.            |          (append[!]alistp:::)pend!altersalllistsbutthelast(-1+(num*
  427.  *ber)SUB1string-fil|l! string fill-char)
  428.            |          (apply ~(arg:::) argument-list)([minus,-]unumber)naryminu*
  429.  *s(string-length=st|ring)) aninteger
  430. Literals   |          ([assoc,assq,assv] obj pair-list)          (string-ref=st*
  431.  *ring)index)nthchar|ofstring
  432.            |          (c[[a,d] :::]rupair)pto4levelsof"a"and"d"(/inumber)nverse*
  433.  *                  |
  434. (quote patt|ern) '(pattern)                (abs number)          (string-set! s*
  435.  *tring index char) |
  436. (quasiquote|pattern) `(pattern)(cons obj1obj2)(+ [number](:::)- [number1number2*
  437.  *](:::)string-ci[<,|=]cstring1string2)ase-insensitive
  438. (unquote ex|pression) ,(exp).Validwithinquasiquote(copy(list)*([number]/:::)[nu*
  439.  *mbernumber](:::)st|ring[<,<=,=,>=,>] stringstring)
  440. (unquote-sp|licing exp),@(exp).Validwithinquasiquote([delete!,delq!] obj list) *
  441.  *1  2              |                   1  2
  442.            |          (last-pair list)     (< [number](:::)>= [number](:::)subs*
  443.  *tring=string)start|end)string[start:::end-1]
  444.            |                               (> [number](:::)<= [number] :::)    *
  445.  *                  |
  446.            |          (length list)        (= [number](:::)<> [number](:::)subs*
  447.  *tring-fill! string|start end fill-char)
  448. Sequencing |& Control (list obj :::)       (min [number](:::)max [number](:::)s*
  449.  *ubstring-find-next|-char-in-set string start end char-set)
  450.            |          (list* objc:::)reatesadottedlist           (substring-fin*
  451.  *d-previous-char-in|-set string start end char-set)
  452. (if predica|te consequent [alternative])   (sqrt number)           =) indexor#F*
  453.  *.char-set isachara|cterorastring
  454. (when predi|cate exp :::)(list-refilistnindex)dex(startsat0exp [base]eexponent)*
  455.  *xpt               |
  456. (apply-if p|redicate ~(trigger)(exp-false)list-tail(listlindex)og(numbers[base]*
  457.  *)ubstring-find-nex|t-string[-ci] string start end match)
  458. (case item |(selector exp(:::)[:::[(elsemexp:::)])ember,memq,memv]=obj)list)lis*
  459.  *t-tailstartingwith|obj(or#Fsin(number)asin(number)substring-find-previous-str*
  460.  *i@
  461.            |          (reverse[!]rlist)everse!destroysitsargument(substring-mov*
  462.  *e-[left,right]! st|ring1start1end1string2start2)
  463.   selector |isitem-value or(item-value:::) (cos number)(acos number)Thedirectio*
  464.  *nisimportantonlyif|thesubstringsoverlap
  465. (cond claus|e :::[(else(exp:::)])set-c[a,d]r!(pairobj)tan(number)atan number [d*
  466.  *ivisor])          |
  467.   clause is|(predicateexp:::)or(predicate=>~(trigger))           (substring-ci[*
  468.  *<,=] string1start1|end1string2start2end2)
  469. (and exp ::|:)=) valueoflasttrueexp,or#F(for-eachc~(arg:::)alistl:::)lsprocwith*
  470.  *anitemofeachlist(e|ven?(integer)substring[<,<=,=,>=,>] string1start1end1strin*
  471.  *g@
  472.            |          (map ~(arg:::)=list):::)listofresultingvalues(odd?(intege*
  473.  *r)sprintf=template|[obj]):::)astring
  474. (or exp :::|)=) valueoffirsttrueexp,or#F                         (sscanf input-*
  475.  *string=template)) |([obj]:::)
  476. (not exp)  |                               (integer->stringrintegeraradix)dix i*
  477.  *sanyarbitraryinteg|erth
  478. (begin exp1|:::expn)=)Sexpntreams: Lists Evaluating(oniDemandnteger->char=integ*
  479.  *er)) n characterfr|omAsciicode
  480. (begin0 exp|:::exp)=) exp                  (ascii->symbol=integer)) aone-charsy*
  481.  *mbol              |
  482.          1 |n         T1HE-EMPTY-STREAM    (quotientrdividendodivisor)undstozer*
  483.  *ooSymbols         |
  484.            |          (stream? obj)                                            *
  485.  *                  |
  486.            |                               (remaindersdividendadivisor)mesignas*
  487.  *dividendoSymbolsca|nbeenclosedin_:::_
  488. Syntax & Er|rors      (empty-stream? stream)(divide dividendrdivisor)oundsto-1(*
  489.  *symbol? obj)      |
  490.            |          (stream->list stream)(modulo dividendsdivisor)amesignasdi*
  491.  *visor             |
  492. (alias new-|name old-name)(cons-stream obj1obj2)(gcdgintegerr:::)eatestcommondi*
  493.  *visor(symbol->stri|ng symbol)st
  494. (syntax pat|ternpexpansion)attern(isaliststructurehead stream)   (symbol->ascii*
  495.  *=symbol)) Asciicod|eof1 charofsymbol
  496. (define-int|egrablennameavalue)me willbeexpandedinline(lcmlintegere:::)astcommo*
  497.  *nmultiple(explode=|symbol)) alistofone-charsymbols
  498. (macro name|expander)expander(is~(exp)tail stream)(bitwise-and integer(:::)gens*
  499.  *ym=[string,number]|)) anewuninternedsymbol
  500.            |          (delayed-object? obj)(bitwise-or integer :::)            *
  501.  *                  |
  502.   ifexpande|r is'(),name(isunaliaseddelayfexp)reezesandmemoisesexp(bitwise-xoro*
  503.  *integerp:::)tional|lysetsthestringprefixorinitializethecountersuffix
  504.            |          (force delayed-object)                     (property symb*
  505.  *ol=[property-name[|new-value]])) oldvalue(s)
  506. (assert pre|dicate message :::)            (random range)=) anon-negativeintege*
  507.  *ri<rangefnew-value|is#!UNDEFINED,thepropertyisremoved
  508. (bkpt messa|ge irritant-exp)(freeze exp)   (randomizer[integer])andomseed;defau*
  509.  *ltstotime-of-day  |
  510. (error mess|age irritant-exp(:::)thaw freezed-object)                          *
  511.  *                  |
  512.            |                                                                   *
  513.  *                  |
  514.            |                                                                   *
  515.  *                  |
  516.            |         |                     |                    |              *
  517.  *                  |
  518.      ________________|_____________________|____________________|______________*
  519.  *__________________||
  520.            |                                                                   *
  521.  *                  |
  522.            |                                                                   *
  523.  *                  |
  524.            |                                                                   *
  525.  *                  |
  526.            |                                                                   *
  527.  *                  |
  528.            |                                                                   *
  529.  *                  |
  530.            |                                                                   *
  531.  *                  |
  532.            |                                                                   *
  533.  *                  |
  534.      __________________________________________________________________________*
  535.  *__________________||
  536.            |         |                     |                    |              *
  537.  *                  |
  538.            ||        |                     |                    |              *
  539.  *                  ||
  540. Ports & Windows       Vectors              Command line          SCOOPS: the Ob*
  541.  *ject Package
  542. 'CONSOLE   ||aport:thedisplayandkeyboardVectorsareenclosedin#(:::)             *
  543.  *                  ||
  544. MAX-CONSOLE|(lines.cols),thedisplay'ssize  SCHEME-TOP-LEVELfluidlyboundtotheint*
  545.  *erpreter'sloop(loa|d-scoops)loadScoopspackage
  546.            |          (vector? vector)     (reset) resetsthecurrentinterpreterl*
  547.  *oop               |
  548. PCS-STATUS-|WINDOWthebottomline'swindow(vector->list(vector)reset-scheme-top-le*
  549.  *vel)bindsthetop-le|veltoitsdefault(define-class name
  550. STANDARD-[I|NPUT,OUTPUT]thestandardI/Oports(make-vector(lengths[init-value])che*
  551.  *me-reset)[(classva|rsitem :::)]
  552. [INPUT,OUTP|UT]-PORTfluidlyboundtocurrentports                    th           *
  553.  *                  |
  554.            |          (vector obj=:::)) anewvector(%c=n)) queryofn command-line*
  555.  *entry[(instvars[it|em,active-item]:::)]
  556. (port? obj)|          (vector-fill! vector obj)(%d n)=) resultofnthcommand-line*
  557.  *entry[(mixinsitem |:::)]
  558. (window? ob|j         (vector-length=vector)) aninteger              [(options[*
  559.  *option]           |
  560. (input-stri|ng? obj)  (vector-refivectornindex)dex(startsat0get-history)=)[alis*
  561.  *tofstrings:previou|sinputlines(option variable :::)]:::)])
  562. (input-port|? port)                        (push-history string[-list])        *
  563.  *                  |
  564.            |          (vector-set! vector index(obj)clear-history) item is(var *
  565.  *init-value)orjustv|ar toleaveitunbound
  566. (output-por|t? port)                                               active-item *
  567.  *is(var (active ini|t-value get-proc set-proc))
  568. (char-ready|? port)                        (pcs-learn-symbols symbol-list)optio*
  569.  *n is[gettable,sett|able,inittable]-variables
  570. (eof-object|? obj))   Environments         (pcs-recognize-symbol=symbol)[len])c*
  571.  *ompletionofsymbol |
  572. (open[-bina|ry]-[input,output]-file filename)(pcs-macro-keys ((key.replacement)*
  573.  *:::))option applie|sonallvariableswhennoneisspecified
  574.            |          USER-GLOBAL-ENVIRONMENTparentofUSER-INITIAL-ENVIRONMENTke*
  575.  *y(isanAsciicodeora|scan-code.#x100define-method (class method) ([parameter] :*
  576.  *:@
  577. (open-exten|d-file=filename))UaportSER-INITIAL-ENVIRONMENTtop-levelenvironment(*
  578.  *delete-method (cla|ss method))
  579. (open-input|-string string)(environment? obj)replacement isa[dotted-]listofstri*
  580.  *ngs(make-instance |class var init-val :::)
  581. (close-[inp|ut,output]-port port)                                              *
  582.  *                  |
  583.            |          (unbound? symbol1:::env)                   (class-of-obje*
  584.  *ct=object)) name  |
  585. (current-[i|nput,output]-port)=)(aportaccesslsymbol1:::env)ooksupsymbol1in(:::i*
  586.  *nenv)(send[-if-han|dles] object msg [arg] :::)
  587. (line-lengt|h [port]) (define identi[exp])dentMisanameoraformals-listiscellaneo*
  588.  *ussend-if-handlesr|eturns#Fwhenobject cannothandlemsg
  589. (current-co|lumn [port])(make-environment=scheme_definition_or_exp):::)anenv   *
  590.  *                  |
  591. (flush-inpu|t [port])                      PCS-DEBUG-MODEwhetherdebuginformatio*
  592.  *nisgenerated(class|-compiled? class)
  593.            |          (the-environment)=) thecurrentlexicalenvironmentPCS-INTEG*
  594.  *RATE-PRIMITIVES   |
  595. (read [port|])readafullSchemeexpression(procedure-environment=procedure))wproce*
  596.  *dure'senvironmenth|etherprimitivesareinline-expanded(compile-class class)
  597. (read-atom |[port])   (environment-parent env)                   (name->class=n*
  598.  *ame)) class       |
  599. (read-char |[port])                        PCS-INTEGRATE-INTEGRABLES(rename-cla*
  600.  *ss (class name))  |
  601. (read-line |[port])   (environment-son=env)) an(empty)childwhetherdefine-integr*
  602.  *able'sareinline-ex|panded(described[class,object])isplaysafulldescription
  603.            |          (environment-bindings=env))*alistofname-valuepairsTHE-NON*
  604.  *-PRINTING-OBJECT* |
  605. (display ob|jh[port])uman-readablestyle;(princset! ident exp)    (classvars=cla*
  606.  *ss)) alistofclassv|ariablenames
  607. (write obj |[port])machinestyle;iprin1,printdentnisname,(fluidename)or(accessvn*
  608.  *ame1:::env)erprint|ed,evenbywrite(all-classvarsiclass)ncludesinheritedclassva*
  609.  *r@
  610. (write-char|char [port])                   PCS-GC-MESSAGE        (instvars clas*
  611.  *s)                |
  612. (writeln ob|j:::)     (unbind symbol env)    stringdisplayedduringgarbagecollec*
  613.  *ting(all-instvars |class)
  614.          1 |          (eval exp [env])     PCS-GC-RESET                        *
  615.  *                  |
  616. (pp obj [po|rt[width]])prettyprintsSchemeobjectsstringnormallydisplayedinthesta*
  617.  *tuswindow.Contains|up(methods class)
  618. (newline [p|ort])                            to2"%lu":freeschemememoryandkernel*
  619.  *memory(in(all-meth|ods class)
  620. (fresh-line|[port])   Procedures, Continuations & Engines        (mixins class)*
  621.  *                  |
  622. (print-leng|th=obj)) aninteger               bytes)              (getcv class=v*
  623.  *ar)) valueofvar in|class
  624.            |          (procedure?#obj)Tforproceduresandcontinuations           *
  625.  *                  |
  626. (set-line-l|ength! length([port])continuation?Cobj)LOCK-TICKnumberoftickspersec*
  627.  *ond(setcv class va|r exp)
  628. (get-file-p|osition=port)) aninteger       (clock) =) numberoftickssincestartof*
  629.  *PCS               |
  630. (set-file-p|osition! port(num-bytescwhence)all/cct~(continue))call-with-current*
  631.  *-continuationherea|re216ticksperhour,i.e. 18:2persecond
  632.   whence is|'SET(0),'CUR(1)or'END(2)(make-enginetthunk)hunk(is~(tickssuccessfai*
  633.  *lure)time ['UNIX|'|GM|'LOCAL] [language] [source-time])
  634.            |          (engine-returnrvalue)eturnsvalue totheengine'scallerDirec*
  635.  *tory Structure    |
  636. (call-with-|[input,output]-file filename ~(port))  =) converted-time           *
  637.  *                  |
  638.            |                                 languagessupportedare'ENGLISHand'F*
  639.  *RENCHbin     execu|tablesandrun-timelibrairies
  640. (make-windo|w [label [border?]])Operating Systematime isaninteger(Unix-time)ora*
  641.  *prefixofthelist:br|ief     interfacetoBorland'seditor
  642. (window-cle|ar window)                       (secminhourmonth-daymonthyearweek-*
  643.  *dayyear-day)doc   | LaT X,PostScriptandAsciidocs
  644. (window-scr|oll-[up,down](windowd[start-line[end-line]])os-call progname parame*
  645.  *ters [memory-to-fr|ee[restore-screen?]])E
  646. (window-del|ete window)                      source-time'sfieldsdefaulttocurren*
  647.  *ttimevaluessamples|   smallScheme-WEBdemos
  648.            |          (dos-chdir=directory-string)) previousdirectorysources/as*
  649.  *m   KernelTurboAss|embler3.1source
  650. (window-pop|up[-delete](window)dos-change-drive(drive-string)text-mode-Bios-mod*
  651.  *e)1forpreviousmode|,#x40for50lines/c   KernelBorlandC++3.1source
  652. (window-get|-attribute(windowdname)os-delete(filename)delete-filefull-screen)ma*
  653.  *kestheconsoleporta|sbigaspossible/s   Kernel4.02Schemesource
  654.   name is'[|BORDER,TEXT]-ATTRIBUTESor'WINDOW-FLAGS(dos-get-dir=[drive-string]))*
  655.  *(astring:thecurren|tdirectorysplit-screensheight)hrinkstheconsoletothebottoml*
  656.  *i@
  657. (window-set|-attribute! window name value) (gc-screen)positionsPCS-STATUS-WINDO*
  658.  *W/bgi   BGItools,v|arioussources
  659.            |          (dos-dir mask-string)=) alistoffilenames     /hershey  He*
  660.  *rsheyfontsWEBsourc|e
  661. (window-rev|erse-text!(window)dos-get-env env-variable-name)(loadffilename)ilen*
  662.  *ame/canbescheme,we|borFSLcodelisp   LispcompatibilitySchemesource
  663. (window-get|-cursor=window))(apair:(lined.ocolumn)s-put-envdstring)oesn'tchange*
  664.  *parent'senvironmen|t/web   Scheme-WEB,varioussources
  665. (window-set|-cursor! window(cursor-linedcursor-column)os-search-filesfilespec)e*
  666.  *archesuponPATH(fas|t-load FSL-filename)
  667.            |                               (fast-save-file source-file[-list] [*
  668.  *dest-file])       |
  669. (window-get|-position=window))(apair.Thetopisat(0d.o0)s-file-copy(source-filena*
  670.  *meadest-filename)u|toload-from-file filename list-of-variables [environment])
  671. (window-set|-position!(windowdul-lineoul-column)s-renameccurrent-filenameanew-f*
  672.  *ilename)nmovefiles|(transcript-on filename)
  673. (window-get|-size=window))(apairdos-file-size filename)                        *
  674.  *                  |
  675. (window-set|-size! window(#lines%#columns)system-file-namepfilename)rependsPCSf*
  676.  *iles'path(transcri|pt-off)
  677.            |                               (edit pair)theyukkylisteditor       *
  678.  *                  |
  679. (window-sav|e-contents=window))(contents:binarystringfilename-split=filename))(*
  680.  *(drivegpathcname[e|xt)compact?])invokesthegarbagecollector
  681. (window-res|tore-contents(windowfcontents)ilename-merge=(drive)pathfnameiext))l*
  682.  *ename(freesp)=) am|ountoffreeSchemememory
  683.            |                                                                   *
  684.  *                  |
  685.            |                               (exit [DOS-return-value])           *
  686.  *                  |
  687.            |                                                                   *
  688.  *                  |
  689.            |                                                                   *
  690.  *                  |
  691.            |         |                     |                    |              *
  692.  *                  |
  693.      ________________|_____________________|____________________|______________*
  694.  *__________________||
  695.